﻿Imports com.auo.flower.remote
Partial Class RefreshData
    Inherits System.Web.UI.Page
    Protected FormKind As String = "AUO.FORM.87"
    Protected Sub btnApproveData_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnApproveData.Click
        Dim aWS As AssetManageWS = New AssetManageWS()
        aWS.UpdateApproveData()
        Response.Write("已完成87Form簽核狀態:" + Now.ToString("yyyy/MM/dd HH:mm:ss.ffff"))

    End Sub

    Protected Sub btnFreshLog_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFreshLog.Click
        Dim aWS As AssetManageWS = New AssetManageWS()
        aWS.RefreshAssetLog()
        Response.Write("已完成更新舊系統log資料:" + Now.ToString("yyyy/MM/dd HH:mm:ss.ffff"))
    End Sub

    Protected Sub btnGetStatus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetStatus.Click
        Dim status As String = ""
        Dim helper As IRemotingFormQueryHelper = RemotingHelperCreator.CreateInstance(GetType(IRemotingFormQueryHelper))
        txtStatus.Text = helper.getFormStatus(FormKind, Integer.Parse(txtApplyNo.Text)).FORM_STATUS.ToLower.Trim

    End Sub
End Class
